unit OptionBaseUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TfrmOptionBase = class(TForm)
    btnOK: TBitBtn;
    btnCancel: TBitBtn;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btnOKClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SaveOption; virtual;
    procedure LoadOption; virtual;
  end;

var
  frmOptionBase: TfrmOptionBase;

implementation

uses MainUnit;

{$R *.dfm}

{ TfrmOptionBase }

procedure TfrmOptionBase.LoadOption;
begin
  
end;

procedure TfrmOptionBase.SaveOption;
begin
  frmMain.actUpdateMenu.Execute;
end;

procedure TfrmOptionBase.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_escape then
    Close;
end;

procedure TfrmOptionBase.btnOKClick(Sender: TObject);
begin
  SaveOption;
end;

procedure TfrmOptionBase.FormCreate(Sender: TObject);
begin
  LoadOption;
end;

end.
